c      Parameter(I0  =200,JMax=50)
c      Parameter(I0  =100,JMax=50)
c      Parameter(IA  =20,JMax=20)
      Parameter(IA  =80,JMax=20)
      Parameter(IMax=2*IA-1)
